home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 80
/
64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64
/
dokweiter t.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
35 lines
1 poke53280,0:poke53281,0
2 printchr$(14)"[147]"tab(15)"[194]amdok 4"tab(97)"von"tab(49)"[200]ans-[202]uergen [218]iethmann"
3 print"[194]itte defekte [215]eiter [212]reiber [196]isk 2.0"tab(80)"in das [204]aufwerk legen"
4 print"und eine [212]aste druecken":wait203,64,64:open1,8,15,"i":open2,8,2,"#"
5 print#1,"u1:"2;0;10;5:print#1,"b-p"2;20:get#2,a$:a=asc(a$+chr$(0))
6 ifa<>32thenprint"[147]nicht auf dieser [196]isk anwendbar!":close2:close1:end
7 readn:ifn<0then9
8 print#1,"m-w"chr$(lb)chr$(05)chr$(1)chr$(n):lb=lb+1:goto7
9 on abs(n) goto10,11,14
10 read lb:goto 7
11 if si=1 thenprint#1,"u2:";2;0;t;s
12 read t: read s
13 print#1,"u1:";2;0;t;s:si=1:goto7
14 print#1,"u2:";2;0;t;s:print#1,"i"
15 close2:close1:print"[215]eiter [212]reiber nun wieder"tab(80)"verwendbar!"
16 data-2,18,0,-1,0,18,1,65,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
17 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,20
18 data255,191,31,2,0,96,0,4,32,33,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
19 data0,0,5,129,1,3,18,255,255,3,9,85,85,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
20 data0,0,0,0,0,0,0,0,0,0,7,193,131,1,78,101,117,101,32,71,69,79,83,45,84,114
21 data101,105,46,160,160,160,81,70,160,50,65,160,160,160,160,19,8,71,69,79,83
22 data32,102,111,114,109,97,116,32,86,49,46,48,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0
23 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
24 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2,18,1,-1,0,18,9,130,1,16,76,67,45,49,48,32
25 data79,80,84,73,160,160,160,160,160,160,1,8,0,9,89,5,6,3,10,4,0,0,0,131,1,17
26 data99,101,110,116,45,50,52,160,160,160,160,160,160,160,160,160,1,9,0,9,88,12
27 data22,12,0,4,0,0,0,195,1,18,83,101,105,107,111,115,104,97,32,55,50,48,32,100
28 data160,160,1,10,0,9,86,4,7,15,0,3,0,0,0,195,1,0,83,101,105,107,111,115,104
29 data97,32,54,52,48,32,100,160,160,1,13,0,9,86,4,7,15,0,3,0,0,0,195,1,2,83,101
30 data105,107,111,115,104,97,32,54,52,48,32,101,160,160,1,15,0,9,86,4,7,15,0,3
31 data0,0,0,195,1,7,83,101,105,107,111,115,104,97,32,53,55,54,32,100,160,160,1
32 data20,0,9,86,4,7,15,0,3,0,0,0,195,2,14,83,101,105,107,111,115,104,97,32,57
33 data54,48,32,100,160,160,1,6,0,9,86,4,7,15,0,3,0,0,0,195,2,2,83,101,105,107
34 data111,115,104,97,32,49,49,53,50,32,100,160,2,15,0,9,86,4,7,15,0,3,0,-3